Public Class OrdenesDeCompra
    Dim ADOrdenesDeCompra As New ADCono.OrdenesdeCompra
    Dim ADItemDeOC As New ADCono.ItemsDeOC

    Public Function GenerarOrdenDeCompra(ByVal Fecha As Date, ByVal Observaciones As String)
        Dim CodigoOC As Integer
        CodigoOC = ADOrdenesDeCompra.Generar(Fecha, Observaciones)
        Return CodigoOC
    End Function

    Public Sub GenerarItemDeOC(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer, ByVal Cantidad As Integer)
        ADItemDeOC.Generar(Cod_OC, Cod_Producto, Cantidad)
    End Sub


End Class
